/ Acorn RISC PD-CD 1 / Acorn RISC PD-CD 1.iso / utilities / _apps_2 / smallapps1 / _fileact / exprog

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 0d f4 20 3e 45 | 78 50 72 6f 67 0d 00 14 |..... >E|xProg...|
|00000010| 1c f4 20 45 78 61 6d 70 | 6c 65 20 61 63 74 69 6f |.. Examp|le actio|
|00000020| 6e 20 70 72 6f 67 72 61 | 6d 0d 00 1e 22 6e 61 6d |n progra|m..."nam|
|00000030| 65 24 3d a4 4f 53 76 61 | 72 28 22 46 69 6c 65 41 |e$=.OSva|r("FileA|
|00000040| 63 74 24 4f 62 4e 61 6d | 65 22 29 0d 00 28 32 f2 |ct$ObNam|e")..(2.|
|00000050| 69 6e 66 6f 28 6e 61 6d | 65 24 2c 6f 74 79 70 65 |info(nam|e$,otype|
|00000060| 25 2c 6c 6f 61 64 25 2c | 65 78 65 63 25 2c 6c 65 |%,load%,|exec%,le|
|00000070| 6e 67 74 68 25 2c 66 74 | 79 70 65 25 29 0d 00 32 |ngth%,ft|ype%)..2|
|00000080| 19 f1 22 4e 61 6d 65 20 | 3a 20 27 22 3b 6e 61 6d |.."Name |: '";nam|
|00000090| 65 24 3b 22 27 22 0d 00 | 3c 0f f1 22 54 79 70 65 |e$;"'"..|<.."Type|
|000000a0| 20 3a 20 22 3b 0d 00 46 | 0f c8 8e 20 6f 74 79 70 | : ";..F|... otyp|
|000000b0| 65 25 20 ca 0d 00 50 16 | 20 c9 20 31 20 3a 20 f1 |e% ...P.| . 1 : .|
|000000c0| 3b 22 66 69 6c 65 2c 20 | 22 3b 0d 00 5a 58 20 20 |;"file, |";..ZX  |
|000000d0| 20 20 20 20 20 20 20 20 | e7 66 74 79 70 65 25 3e |        |.ftype%>|
|000000e0| 3d 30 20 8c 20 f1 3b 22 | 66 69 6c 65 74 79 70 65 |=0 . .;"|filetype|
|000000f0| 20 26 22 3b 7e 66 74 79 | 70 65 25 3b 20 8b 20 f1 | &";~fty|pe%; . .|
|00000100| 3b 22 6c 6f 61 64 3d 26 | 22 3b 7e 6c 6f 61 64 25 |;"load=&|";~load%|
|00000110| 3b 22 20 65 78 65 63 3d | 26 22 3b 7e 65 78 65 63 |;" exec=|&";~exec|
|00000120| 25 3b 0d 00 64 2c 20 20 | 20 20 20 20 20 20 20 20 |%;..d,  |        |
|00000130| f1 3b 22 2c 20 6c 65 6e | 67 74 68 20 22 3b 6c 65 |.;", len|gth ";le|
|00000140| 6e 67 74 68 25 3b 22 20 | 62 79 74 65 73 22 0d 00 |ngth%;" |bytes"..|
|00000150| 6e 18 20 c9 20 32 20 3a | 20 f1 3b 22 64 69 72 65 |n. . 2 :| .;"dire|
|00000160| 63 74 6f 72 79 22 0d 00 | 78 2c 20 7f 20 3a 20 f1 |ctory"..|x, . : .|
|00000170| 3b 22 6e 6f 6e 2d 65 78 | 69 73 74 61 6e 74 20 6f |;"non-ex|istant o|
|00000180| 62 6a 65 63 74 20 28 63 | 75 72 69 6f 75 73 20 21 |bject (c|urious !|
|00000190| 29 22 0d 00 82 05 cb 0d | 00 8c 05 e0 0d 00 96 04 |)"......|........|
|000001a0| 0d 00 a0 3d dd f2 69 6e | 66 6f 28 6e 61 6d 65 24 |...=..in|fo(name$|
|000001b0| 2c f8 20 6f 74 79 70 65 | 25 2c f8 20 6c 6f 61 64 |,. otype|%,. load|
|000001c0| 25 2c f8 20 65 78 65 63 | 25 2c f8 20 6c 65 6e 67 |%,. exec|%,. leng|
|000001d0| 74 68 25 2c f8 20 66 74 | 79 70 65 25 29 0d 00 aa |th%,. ft|ype%)...|
|000001e0| 1c f4 20 52 65 74 75 72 | 6e 73 20 69 6e 66 6f 20 |.. Retur|ns info |
|000001f0| 6f 6e 20 6f 62 6a 65 63 | 74 0d 00 b4 36 c8 99 20 |on objec|t...6.. |
|00000200| 22 4f 53 5f 46 69 6c 65 | 22 2c 35 2c 6e 61 6d 65 |"OS_File|",5,name|
|00000210| 24 20 b8 20 6f 74 79 70 | 65 25 2c 2c 6c 6f 61 64 |$ . otyp|e%,,load|
|00000220| 25 2c 65 78 65 63 25 2c | 6c 65 6e 67 74 68 25 0d |%,exec%,|length%.|
|00000230| 00 be 48 e7 6f 74 79 70 | 65 25 3d 31 20 8c 20 e7 |..H.otyp|e%=1 . .|
|00000240| 28 6c 6f 61 64 25 3e 3e | 3e 32 30 29 3d 26 46 46 |(load%>>|>20)=&FF|
|00000250| 46 20 8c 20 66 74 79 70 | 65 25 3d 28 6c 6f 61 64 |F . ftyp|e%=(load|
|00000260| 25 3e 3e 3e 38 29 80 26 | 46 46 46 20 8b 20 66 74 |%>>>8).&|FFF . ft|
|00000270| 79 70 65 25 3d 2d 31 0d | 00 c8 05 e1 0d 00 d2 04 |ype%=-1.|........|
|00000280| 0d 00 dc 12 dd a4 4f 53 | 76 61 72 28 6e 61 6d 65 |......OS|var(name|
|00000290| 24 29 0d 00 e6 2e f4 20 | 41 74 74 65 6d 70 74 73 |$)..... |Attempts|
|000002a0| 20 74 6f 20 72 65 74 75 | 72 6e 20 4f 53 2d 76 61 | to retu|rn OS-va|
|000002b0| 72 27 73 20 73 74 72 69 | 6e 67 20 76 61 6c 75 65 |r's stri|ng value|
|000002c0| 0d 00 f0 0d ea 20 5f 72 | 24 2c 5f 6c 25 0d 00 fa |..... _r|$,_l%...|
|000002d0| 43 5f 72 24 3d c4 31 30 | 30 2c 22 20 22 29 3a c8 |C_r$=.10|0," "):.|
|000002e0| 99 20 22 58 4f 53 5f 52 | 65 61 64 56 61 72 56 61 |. "XOS_R|eadVarVa|
|000002f0| 6c 22 2c 6e 61 6d 65 24 | 2c 5f 72 24 2c a9 5f 72 |l",name$|,_r$,._r|
|00000300| 24 2c 30 2c 33 20 b8 20 | 2c 5f 72 24 2c 5f 6c 25 |$,0,3 . |,_r$,_l%|
|00000310| 0d 01 04 0e 3d c0 5f 72 | 24 2c 5f 6c 25 29 0d ff |....=._r|$,_l%)..|
+--------+-------------------------+-------------------------+--------+--------+